home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / ac60950.zip / AC6.CFG < prev    next >
Text File  |  1992-08-13  |  6KB  |  166 lines

  1. {
  2.   begin "AC6 Installation"
  3.   ------------------------
  4.   (set game "AC6")
  5.   (set version "0.950")
  6.   (set 4-dos (4-dos?))
  7.   (set ResourceFile "RESOURCE.DAT")
  8.  
  9.   (display (cc 14) game " " (cc 15) version (cc 7) " setup:\n\n")
  10.  
  11.   (display "The " game " directory is `" (cc 14) (fix-path (get-cwd)) (cc 7) "'.\n\n")
  12.  
  13.   (set BBSDirectory (read-string "Which directory is your BBS in?\n> "))
  14.   [ if (not BBSDirectory)
  15.       (set BBSDirectory ".")
  16.   ]
  17.   (set BBSDirectory (fix-path BBSDirectory))
  18.  
  19.   (write-setup-sr)
  20.  
  21.   (set BatchFile (concat BBSDirectory game ".BAT"))
  22.   [ if (not (ask "Write to " (cc 14) BatchFile (cc 7) "?  [Y/N] "))
  23.       (set BatchFile (read-string "Enter the full pathname for your batch file:\n> "))
  24.   ]
  25.  
  26.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  27.  
  28.   "Ask about special effects"
  29.   (set SpecialEffects (ask "Do you want Special Effects? [Y/N] "))
  30.   [ if (not (error? SpecialEffects))
  31.     (if SpecialEffects (set SpecialEffects "TRUE"))
  32.     (if (not SpecialEffects) (set SpecialEffects "FALSE"))
  33.     (resource-edit ResourceFile "SpecialEffects" SpecialEffects)
  34.   ]
  35.  
  36.   (set LockedBaud (read-string "If you have locked baud rates, please enter the baud rate:\n> "))
  37.   (if LockedBaud (resource-edit "RESOURCE.DAT" "LockedBaud" LockedBaud))
  38.   (if (not LockedBaud) (resource-edit "RESOURCE.DAT" "LockedBaud" "none"))
  39.  
  40.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  41.  
  42.   (set Scores? (ask "Do you want to have score files? [Y/N] "))
  43.   [ if (not (error? Scores?))
  44.     [ if (not Scores?)
  45.       (resource-edit ResourceFile "Scores" "NO")
  46.     ]
  47.     [ if Scores?
  48.       (resource-edit ResourceFile "Scores" "YES")
  49.       (set L-ansi-scores
  50.         (read-string "If you want an ANSI score file, enter the full pathname:\n> "))
  51.       (resource-edit ResourceFile "AnsiScores" L-ansi-scores)
  52.       (set L-text-scores
  53.         (read-string "If you want a TEXT score file, enter the full pathname:\n> "))
  54.       (resource-edit ResourceFile "AsciiScores" L-text-scores)
  55.     ]
  56.   ]
  57.  
  58.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  59.  
  60.   [ if (not BatchFile)
  61.     (display "Not creating a batch file.\n")
  62.   ]
  63.  
  64.   [ if BatchFile
  65.     (set L-ansi-news
  66.       (read-string "If you want an ANSI Today's news file, enter the full pathname:\n> "))
  67.     (set L-text-news
  68.       (read-string "If you want a TEXT Today's news file, enter the full pathname:\n> "))
  69.     (set L-ansi-ynews
  70.       (read-string "If you want an ANSI Yesterday's news file, enter the full pathname:\n> "))
  71.     (set L-text-ynews
  72.       (read-string "If you want a TEXT Yesterday's news file, enter the full pathname:\n> "))
  73.  
  74.     (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  75.  
  76.     (display "Writing to " (cc 14) BatchFile (cc 7) "\n")
  77.  
  78.     "Write a batch file"
  79.     (rewrite BatchFile)
  80.  
  81.     (write "@ECHO OFF\n")
  82.     [ if 4-dos
  83.         (write "REM 4-DOS version\n")
  84.         (write "PUSHD " (fix-path (get-cwd)) "\n")
  85.     ]
  86.     (if (not 4-dos) (write (cd-cmd (fix-path (get-cwd)))))
  87.  
  88.     (set Setup (setup-type))
  89.     [ if (= Setup "Searchlight")
  90.         " %1 is the username "
  91.         " %2 is ANSI:  `C' means yes"
  92.         " %3 is Time left"
  93.         " %4 is Baud rate"
  94.         " %5 is COM port"
  95.         (write "ECHO %1  >DOORFILE.SR\n"
  96.                "IF [%2]==[C] ECHO 1 >>DOORFILE.SR\n"
  97.                "IF NOT [%2]==[C] ECHO 0 >>DOORFILE.SR\n"
  98.                "ECHO -1 >>DOORFILE.SR\n"
  99.                "ECHO 25 >>DOORFILE.SR\n")
  100.         [ if LockedBaud
  101.           (write "REM For non-locked, use ECHO %4 >>DOORFILE.SR\n"
  102.                  "ECHO " LockedBaud " >>DOORFILE.SR\n")
  103.         ]
  104.         [ if (not LockedBaud)
  105.           (write "ECHO %4 >>DOORFILE.SR\n")
  106.         ]
  107.         (write "ECHO %5 >>DOORFILE.SR\n")
  108.         (write "ECHO %3 >>DOORFILE.SR\n")
  109.     ]
  110.  
  111.     [ if (= Setup "PC-Board NEW")
  112.         (display "PC-Board 14.x support has not yet been added to SRDOOR.\n")
  113.         (set PCB-2-SR (ask "Do you have PCB-2-SR? [Y/N] "))
  114.         [ if PCB-2-SR
  115.           (write "PCB2SR")
  116.           (display "Please put PCB2SR.EXE in the " game " directory, or modify "
  117.                    BatchFile to run PCB-2-SR from the right directory.\n")
  118.         ]
  119.         [ if (not PCB-2-SR)
  120.           (write "ECHO PC-Board support is not working yet.")
  121.           (display "PC-Board 14.x support has not been added to SRDOOR.  There "
  122.                    "is a program called PCB-2-SR that converts PC-Board files "
  123.                    "to the format that " game " requires.  You might want to get "
  124.                    "PCB-2-SR or a door converter that converts to a format used "
  125.                    "by another BBS.  (You will have to run the installation "
  126.                    "again.)\n")
  127.         ]
  128.     ]
  129.  
  130.     [ if (and (<> Setup "PC-Board NEW") (<> Setup "Searchlight"))
  131.         (write "SRDOOR")
  132.         [ if (= Setup "GT")
  133.             (set ComPort (read-string "What COM port do you run on?  [1-8]\n> "))
  134.             (write " GT " ComPort)
  135.         ]
  136.         [ if (= Setup "PC-Board OLD")
  137.             (set ComPort (read-string "What COM port do you run on?  [1-8]\n> "))
  138.             (write " PCBOARD2 " ComPort)
  139.         ]
  140.         (write "\n")
  141.     ]
  142.  
  143.     (write game "\n")
  144.  
  145.     (if L-ansi-news (write "COPY TDYNEWS.ANS " L-ansi-news "\n"))
  146.     (if L-text-news (write "COPY TDYNEWS.TXT " L-text-news "\n"))
  147.     (if L-ansi-ynews (write "COPY YESNEWS.ANS " L-ansi-ynews "\n"))
  148.     (if L-text-ynews (write "COPY YESNEWS.TXT " L-text-ynews "\n"))
  149.  
  150.     (if 4-dos (write "POPD\n"))
  151.     (if (not 4-dos) (write (cd-cmd BBSDirectory)))
  152.  
  153.     (write "EXIT\n")
  154.   ]
  155.  
  156.   (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))
  157.  
  158.   (display "\nSee " (cc 14) "OPTIONS.DOC" (cc 7) " for other parameters.\n")
  159.   (display "\nSee " (cc 14) "RESOURCE.DOC" (cc 7) " for customization information.\n")
  160.  
  161.   (pause "\nPress any key to exit... ")
  162.   ----------------------
  163.   end "AC6 Installation"
  164. }
  165.  
  166.